home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / graphics / 3dvect37.zip / QB.ZIP / MSQUARES.BAS < prev    next >
BASIC Source File  |  1993-05-08  |  868b  |  50 lines
  1. a$ = "0123456789ABCDEF"
  2. w$ = "        dw  "
  3. s$ = "squares dw  "
  4.  
  5. REM use: qbasic msquares.bas>squares.inc  to dump to disk
  6.  
  7. c = 0
  8. PRINT "; x squared tables: 256 word entries return ax exponent 2."
  9. PRINT "; in square functions, low byte is only factor!"
  10. PRINT
  11. PRINT "; mov si,ax ; ax must be less then 256! (eg 257*257>65535)"
  12. PRINT "; mov ax,[squares+si]"
  13. PRINT : PRINT s$;
  14.  
  15. FOR z = 0 TO 255
  16.  
  17.  x = z ^ 2
  18.  
  19.  q$ = "0"
  20.  
  21.  u = INT(x / 256)
  22.  y = INT(u / 16)
  23.  
  24.  PRINT q$; MID$(a$, y + 1, 1); MID$(a$, (u / 16 - INT(u / 16)) * 16 + 1, 1);
  25.  
  26.  q$ = "0"
  27.  
  28.  u = x - u * 256
  29.  y = INT(u / 16)
  30.  
  31.  PRINT MID$(a$, y + 1, 1); MID$(a$, (u / 16 - INT(u / 16)) * 16 + 1, 1); "h";
  32.  
  33.  c = c + 1
  34.  IF c < 8 THEN PRINT ","; : GOTO 91
  35.  
  36.  c = 0
  37.  q = (z - 7)
  38.  u = INT(q * 1000) / 1000
  39.  
  40.  PRINT " ;"; u
  41.  IF z = 255 THEN GOTO 91
  42.  
  43.  PRINT ; w$;
  44.  
  45. 91
  46.  
  47.  NEXT z
  48.  
  49.  
  50.